(Info-fontify-node): Mark one more char as intangible.

diff --git a/lisp/info.el b/lisp/info.el
index 21e32e76a4b435bb8fbc9b0a19366e68f37342e4..39f4c5df64a3c69167e17b890d2fcf81c0e3c28f 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2510,9 +2510,11 @@ the variable `Info-file-list-for-emacs'."
        ;; This is a serious problem for trying to handle multiple
        ;; frame types at once.  We want this text to be invisible
        ;; on frames that can display the font above.
-       (if (memq (framep (selected-frame)) '(x pc w32 mac))
-           (add-text-properties (match-end 1) (match-end 2)
-                                '(invisible t intangible t))))
+       (when (memq (framep (selected-frame)) '(x pc w32 mac))
+         (add-text-properties (match-end 1) (match-end 2)
+                              '(invisible t intangible t))
+         (add-text-properties (1- (match-end 1)) (match-end 2)
+                              '(intangible t))))
       (goto-char (point-min))
       (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t)
        (if (= (char-after (1- (match-beginning 0))) ?\") ; hack